www.gusucode.com > 中国货源网导航程序源码 1 > 中国货源网导航程序源码 1.0/8月11日备份/ly/admin.asp
<!--#include file="safety.asp"-->
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="siva">
<meta name="description" content="siva">
<title><%=webname%>_后台管理</title>
<style type="text/css">
td{font-size:12px;}
</style>
<script>
function checkImgSize(imgIn)
{
var maxWidth=140;
var maxHeight=90;
if(imgIn.width>maxWidth)
{imgIn.width=maxWidth;}
if(imgIn.height>maxHeight)
{imgIn.height=maxHeight;}
}
</script>
</head>
<body topmargin="10">
<script language="javascript" src="../top.js"></script>
<table width='729' border='0' align='center' cellpadding='0' cellspacing='0'>
<tr><td height='20' colspan='2' style='background-position: 0% 0%; font-size:12px;color:#000000;BORDER-RIGHT:1px solid #aaaaaa;padding-top:3px; background-image:url('images/bg1.gif'); background-repeat:repeat; background-attachment:scroll'><font color="#FFFFFF">当前位置：首页 >>
留言板后台</font></td></tr>
</table>
<table width='729' border='0' align='center' cellpadding='0' cellspacing='0'>
<tr><td height='10' colspan='2'></td></tr>
</table>
<TABLE width=728 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD> <img border="0" src="images/cook.gif"> 网站留言簿后台管理</TD>
<TD align=right width=400><a href="javascript:if(confirm('确定要退出吗?')) window.location='logout.asp';"><font color="blue">退出留言簿后台管理</font></a> </TD>
</TR></TBODY></TABLE>
<%
strSourceFile = Server.MapPath("siva.xml")
Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
objXML.load(strSourceFile)
Set objRootsite = objXML.documentElement.selectSingleNode("guestbook")
'每页显示*条留言
PageSize = cint(""&num&"")
'获取子节点数据（因为是从节点数从0开始的所最大子节点数要减1）
AllNodesNum = objRootsite.childNodes.length - 1
'算出总页数
PageNum = AllNodesNum\PageSize + 1
PageNo = cint(Request.querystring("PageNo"))
'如果是每一次获得页面则定位到每一页显示最新的留言
if PageNo="" or PageNo="0" then
PageNo = 1
end if
'获得起始节点
StarNodes = AllNodesNum - (PageNo - 1)*PageSize
'获得结束节点
EndNodes = StarNodes - PageSize + 1
if EndNodes < 0 then
EndNodes = 0
end If
'判断起始节点数是否超过总的节点数
if StarNodes > AllNodesNum then
'如果超过则结束节点要减去(StarNodes-AllNodesNum)的差值否则下标会超界出错
EndNodes=EndNodes-(StarNodes-AllNodesNum)
StarNodes=AllNodesNum
end if
if EndNodes < 0 then
EndNodes=0
end if
while StarNodes >= EndNodes
id=objRootsite.childNodes.item(StarNodes).childNodes.item(0).text
name=objRootsite.childNodes.item(StarNodes).childNodes.item(1).text
email=objRootsite.childNodes.item(StarNodes).childNodes.item(2).text
sex=objRootsite.childNodes.item(StarNodes).childNodes.item(3).text
content=objRootsite.childNodes.item(StarNodes).childNodes.item(4).text
addtime=objRootsite.childNodes.item(StarNodes).childNodes.item(5).text
reply=objRootsite.childNodes.item(starNodes).childNodes.item(6).text
hftime=objRootsite.childNodes.item(starNodes).childNodes.item(7).text
ip=objRootsite.childNodes.item(starNodes).childNodes.item(8).text
ip=split(ip,".")
uip=ip(0)&"."&ip(1)&"."&ip(2)&".*"
%>
<TABLE width=728 border=0 align="center" cellPadding=0 cellSpacing=0 style="background-image: url('../images/left_top_bg01.gif'); background-repeat: repeat-x; border: 1px solid #dddddd">
<TBODY>
<TR>
<TD align=middle width=150><%=name%></TD>
<TD style="BACKGROUND-COLOR: #dddddd" align=middle width=1> </TD>
<TD height=20 style="border-bottom:#dddddd 1px solid;"> <font color='#0066c9'>留言时间：</font><%=addtime%> <font color='#0066c9' style="FONT-FAMILY: georgia;font-size:11px;">Email：</font><a href="mailto:<%=email%>"><font style="FONT-FAMILY: georgia;font-size:11px;"><%=email%></font></a> <a href="reply.asp?id=<%=id%>"><font color="#ff0000">回复留言</font></a> <a href="del.asp?id=<%=id%>"><font color="#ff0000">删除留言</font></a> </TD></TR>
<TR>
<TD align=middle width=150 height=70><img border="0" src="images/<%=sex%>"><BR>
IP：<%=uip%></TD>
<TD style="BACKGROUND-COLOR: #dddddd" align=middle width=1> </TD>
<TD>
<TABLE cellSpacing=0 cellPadding=8 width="578" border=0>
<!--DWLayoutTable-->
<TBODY>
<TR>
<TD width="562" height="66" valign="top"><%
response.write replace(content,chr(13),"<br>")
if reply<>"" then
response.write "<br><br><font color='#f60044'>管理员回复：</font>"
response.write reply
response.write "<p align=left><font color='#454545'>回复时间："
response.write hftime
response.write "</font></p>"
end if
%>
</TD>
</TR>
</TBODY>
</TABLE></TD></TR></TBODY></TABLE>
<TABLE height=8 align="center" cellSpacing=0 cellPadding=0 width=728 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<%
StarNodes = StarNodes - 1
wend
set objXML = nothing
%>
<TABLE height=8 cellSpacing=0 cellPadding=0 width=728 border=0 align="center">
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<TABLE width=728 border=0 align="center" cellPadding=0 cellSpacing=0>
<!--DWLayoutTable-->
<TBODY>
<TR>
<TD width=526 height="22" valign="top"> 页数：<FONT color=red><%=pageno%></FONT>/<%=pagenum%>
<%if pageno <> 1 then
response.write "<a href='?pageno=1'>首页</a>"
response.write " <a href='?pageno="&pageno-1&"'>上一页</a>"
else
response.write "<FONT color=silver>首页 上一页</font>"
end if
if pageno <> pagenum then
response.write " <a href='?pageno="&pageno+1&"'>下一页</a>"
response.write " <a href='?pageno="&pagenum&"'>尾页</a>"
else
response.write " <FONT color=silver>下一页 尾页</font>"
end if%>
共有<FONT color=red><%=AllNodesNum+1%></FONT>笔(每页<%=PageSize%>笔)</TD>
<TD width=202 align=right valign=top style="padding-right:4px;">
<INPUT style="cursor:hand;BORDER-RIGHT: 2px solid #000080; BORDER-TOP: 2px solid #FFFFFF; FONT-SIZE: 14px; BACKGROUND: #D3EDFF; BORDER-LEFT: 2px solid #FFFFFF; WIDTH: 80px; BORDER-BOTTOM: 2px solid #000080; HEIGHT: 22px" type="button" value=">>写新留言" name="btn3" onclick="javascrit:window.location='add_ui.asp';"></TD>
</TR>
</TBODY>
</TABLE>
<!--留言程序结束-->
<TABLE height=8 cellSpacing=0 cellPadding=0 width=728 border=0 align="center">
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<script language="javascript" src="/bottom.js"></script>
</BODY></HTML>